home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Graphics / MagnifiCAD / Install < prev    next >
Encoding:
Text File  |  1996-12-09  |  5.6 KB  |  283 lines
  1. ;  
  2. ;  MagnifiCAD Installation Script.
  3. ; 
  4. ;  v1.2, (C)1995-96 Anders Granli.
  5. ;  
  6. ;  01.12.96
  7.  
  8.  
  9. (set @user-level 1)
  10. (welcome "\nWelcome to the installation\nof MagnifiCAD (v1.2)")
  11.  
  12.  
  13. (message ("\nWelcome to the installation of MagnifiCAD!\n\nYou need about 650KB of free space on your\n hard drive for this installation.") )
  14.  
  15. ; **
  16. ; ** Check kickstart version
  17. ; **
  18.  
  19. (set version (/ (getversion) 65536))
  20.  
  21. (if(< version 37)
  22. (Exit "\nYou need at least Workbench 2.0\nto run MagnifiCAD.\n" ) 
  23. )
  24.  
  25. (if (< version 39)
  26.    (set cont 
  27.       (askbool 
  28.          (prompt (cat "\nYou have kickstart 2.0.\n\n "
  29.             "MagnifiCAD will work under 2.0,\n "
  30.             "but may have some slight problems.\n "
  31.             "Proceed to Install?\n " ))
  32.          (help (cat "\nIf you don't have Kickstart 3.0 or\n"
  33.                     "higher, some things just won't work." ))
  34.       )
  35.    )
  36. )
  37.  
  38. ; ** 
  39. ; ** Check processor
  40. ; ** 
  41.  
  42. (
  43.    (set proc (database "cpu"))
  44. )
  45.  
  46.  
  47. ; **
  48. ; ** Unpack to RAM:
  49. ; ** 
  50.  
  51. (run "lha e MagnifiCAD.lha RAM:temp/")
  52.  
  53. ; ** 
  54. ; ** Ask where to install the program
  55. ; **
  56.  
  57. (set @default-dest "Work:")
  58.  
  59. (set Destination
  60.    (askdir
  61.       (prompt (cat "\nSelect the drawer where you would like\n"
  62.               "the drawer containing\nMagnifiCAD to be installed.\n") )
  63.       (help   (cat "\nA drawer named MagnifiCAD will be created in the\n"
  64.               "drawer you select, and the program and all the files\n"
  65.               "will be copied into this new drawer.") ) 
  66.       (default @default-dest)
  67.    )
  68. )
  69.  
  70. ;(if(<>(exists Destination) 2)
  71. ;   (makedir Destination (infos)))
  72.  
  73. (set @default-dest Destination)
  74.  
  75. (complete 10)
  76.  
  77. (set @default-dest 
  78.    (tackon Destination "MagnifiCAD")
  79. )
  80.  
  81. (makedir @default-dest
  82.    (prompt "Creating MagnifiCAD drawer.")
  83.    (infos)
  84. )
  85.  
  86. (complete 20)
  87.  
  88. ; ** 
  89. ; ** Assign
  90. ; **
  91.     
  92. (makeassign "MagnifiCAD" @default-dest)
  93. (complete 30)
  94.  
  95. ; **
  96. ; ** Fonts
  97. ; **
  98.  
  99. (if(exists "fonts:newtopaz.font")
  100.    (
  101.       (set installfont 0)
  102.    )
  103.    ; else
  104.    (set installfont
  105.       (askbool 
  106.          (prompt (cat "\nMagnifiCAD needs the newtopaz.font\n\n "
  107.             "Shall I install the font in your FONTS: drawer?" ))
  108.          (help (cat "This copies the font to FONTS:."
  109.                "The newtopaz.font is needed for\nMagnifiCAD to work."))
  110.       )
  111.    )
  112. )
  113.  
  114. (if installfont 
  115.    (copyfiles
  116.       (prompt "Copying newtopaz.font to Fonts: directory")
  117.       (help @copyfiles-help)
  118.       (source "ram:temp/Fonts")
  119.       (all)
  120.       (dest "Fonts:")
  121.       (fonts)
  122.    )
  123. )
  124. (complete 40)
  125.  
  126. ; **
  127. ; ** Libs
  128. ; **
  129.  
  130. (if(exists "libs:easyrexx.library")
  131.    (
  132.       if(<= (getversion "ram:temp/easyrexx.library")
  133.             (getversion "libs:easyrexx.library"))
  134.       (
  135.          ;(prompt ("newtopaz.font is already\ninstalled in your system"))
  136.          (set installib 0)
  137.       )
  138.    )
  139.    ; else
  140.    (set installib
  141.       (askbool 
  142.          (prompt (cat "\nMagnifiCAD needs the 'easyrexx.library'\n\n "
  143.             "Shall I install the library in your LIBS: drawer?" ))
  144.          (help (cat "This copies the 'easyrexx.library' to LIBS:"
  145.                     "EasyRexx.library is used for ARexx handling"
  146.                     "in MagnifiCAD"))
  147.       )
  148.    )
  149. )
  150.  
  151. (if installib 
  152.    (copyfiles
  153.       (prompt "Copying 'easyrexx.library' to LIBS: directory")
  154.       (help @copyfiles-help)
  155.       (source "ram:temp/easyrexx.library")
  156.       (dest "LIBS:")
  157.    )
  158. )
  159.  
  160.  
  161. (complete 50)      
  162.  
  163. ; **
  164. ; **  Install program
  165. ; **
  166.  
  167.  
  168. (if (< proc 68020)
  169.    (copyfiles
  170.      (prompt "Copying MagnifiCAD program...\n\n(68000 version)")
  171.       (source "ram:temp/MagnifiCAD.000")
  172.       (dest "MagnifiCAD:")
  173.       (newname "MagnifiCAD")
  174.       (infos)
  175.       (help @copyfiles-help)
  176.    )
  177.    (copyfiles
  178.       (prompt "Copying MagnifiCAD program...\n\n(68020 version)")
  179.       (source "ram:temp/MagnifiCAD")
  180.       (dest "MagnifiCAD:")
  181.       (infos)
  182.       (help @copyfiles-help)
  183.    )
  184. )
  185. (complete 60)
  186.  
  187. (copyfiles
  188.    (prompt "Copying MagnifiCAD files to DEST:")
  189.    (help @copyfiles-help)
  190.    (choices "ReadMe.guide"
  191.             "ram:temp/Drawings"
  192.             "ram:temp/Symbols"
  193.             "ram:temp/Prefs"
  194.             "ram:temp/Docs"
  195.             "ram:temp/ARexx"
  196.    )
  197.    (infos)
  198.    (source "")
  199.    (dest "MagnifiCAD:")
  200. )
  201. (complete 70)
  202.  
  203. (copyfiles
  204.    (choices "ram:temp/Icons")
  205.    (source "")
  206.    (dest "MagnifiCAD:")
  207. )
  208.  
  209. (copyfiles 
  210.    (prompt "Copying Drawings & Symbols")
  211.    (source "ram:temp/Drawings/")
  212.    (pattern "#?")
  213.    (dest "MagnifiCAD:Drawings/")
  214.    (infos)
  215. )
  216.  
  217. (copyfiles 
  218.    (source "ram:temp/Symbols/") 
  219.    (all)
  220.    (dest "MagnifiCAD:Symbols/") 
  221.    (infos)
  222. )
  223. (complete 80)
  224.  
  225. (copyfiles 
  226.    (source "ram:temp/Prefs/") 
  227.    (pattern "#?")
  228.    (dest "MagnifiCAD:Prefs") 
  229.    (infos)
  230. )
  231.  
  232. (copyfiles 
  233.    (source "ram:temp/Docs/") 
  234.    (pattern "#?")
  235.    (dest "MagnifiCAD:Docs") 
  236.    (infos)
  237. )
  238.  
  239. (copyfiles 
  240.    (source "ram:temp/Icons/") 
  241.    (pattern "#?")
  242.    (dest "MagnifiCAD:Icons") 
  243. )
  244. (complete 90)
  245.  
  246. ; AREXX
  247. ;(set rexxdir
  248. ;   (askdir
  249. ;      (prompt "Where shall I put the ARexx scripts?")
  250. ;      (default "MagnifiCAD:ARexx/")
  251. ;      (newpath "MagnifiCAD:ARexx/")
  252. ;      (help "Select a directory to put the MagnifiCAD\nARexx scripts in.")
  253. ;   )
  254. ;)
  255.  
  256. (copyfiles
  257.    (prompt "Copying ARexx scripts...")
  258.    (pattern "#?")
  259.    (source "ram:temp/ARexx/")
  260.    (dest "MagnifiCAD:ARexx")
  261.    (infos)
  262. )
  263.  
  264. (complete 95)
  265.  
  266.  
  267. (if(exists "magnificad.keyfile")
  268.   (copyfiles 
  269.     (prompt (cat "This is the registered version of MagnifiCAD.\n\n"
  270.                  "Now about to copy your personal keyfile\n"
  271.                  "to the MagnifiCAD drawer."))
  272.     (source "magnificad.keyfile")
  273.     (dest "MagnifiCAD:")
  274.     (confirm)
  275.   )
  276. )
  277.  
  278. (run "delete ram:temp all")
  279.  
  280. (complete 100)
  281. (message "\n\nMagnifiCAD is now installed and set up for use.\n\nRemember that this is a ShareWare release ;-)")
  282.  
  283.